SPEAKING OF TALKING MACHINES 


PRACTICAL EXAMPLE ON THE APPLE II 
PERSONAL COMPUTER 


With the improvement of the average life expectancy and the increasing number of 
machines available at low or medium prices it is now unthinkable not to believe the 
need for a virtual assistant (artificial intelligence Chatbot). hospitalization, always 
having a nurse available can be impossible, but by supporting her with a virtual 
assistant or robot many of these problems would be solved. Even in a simple family 
or for pure fun or entertainment or need to free the home library a chatbot becomes 
indispensable. 


After talking about the need we may have of a virtual assistant, we now approach 
how to make one of our own, with sentences we have written or copied here and 
there. 


So let's take our notepad from Windows and write the following sentences: 


1 PR# 3: HOME : PRINT 


see's PRINT TINA" 
2 PRINT " " 

3 PRINT " RANDOM MULTIPLE ANSWER INTERACTIVE" 

4 PRINT " CHATBOT" 

5 PRINT "" 

6 PRINT " DEVELOPED BY" 

7 PRINT "" 

9 PRINT " MATTEO TREVISAN AKA TOOLKITMAN": PRINT 
----": FOR I = 1 TO 5000: NEXT I: 


Here we will first of all present our Chatbot with the PRINT "" command and putting 
" the phrase we like best, example 


RANDOM MULTIPLE ANSWER INTERACTIVE headed CHATBOT etc. 


Then we will move on to cleaning up the screen and giving the writing speed with 
the following commands: 


HOME : SPEED= 150 


the following step and let us recognize with the next string: 


10 PRINT "": PRINT "TINA READY TO CHAT...": PRINT 


----": PRINT "TYPE YOUR NAME PLEASE": INPUT A$: GOTO 333 


Then we will write what is the randomness with which the questions arise and 
we should indicate how many are with a corresponding number and a random 
command: 


11 J = INT (100 * RND (1)) +1: 
When we are going to write all the following questions within an expression: 


20 BS = "TINA>": IF J = 1 THEN PRINT B$;"ARE YOU OK?": PRINT A$: INPUT 
">":F$: GOTO 135 

21 BS = "TINA>": IF J = 2 THEN’ PRINT B$;"ARE ELECTION NEXT YEAR?": PRINT 
A$: INPUT ">";F$: GOTO 137 

22 BS = "TINA>": IF J = 3 THEN PRINT B$;"DO YOU 3D PRINT?": PRINT A$: INPUT 
">":F$: GOTO 139 

23 BS = "TINA>": IF J = 4 THEN PRINT B$;"ARE YOU SEEK?": PRINT A$: INPUT 
">":F$: GOTO 141 

25 BS = "TINA>": IF J = 5 THEN PRINT B$;"DO YOU LIKE COMPUTERS?": PRINT A$: 
INPUT ">";F$: GOTO 143 

26 BS = "TINA>": IF J = 6 THEN’ PRINT B$;"WERE THE DEMONSTRATION IN THE 
CENTER OF TOWN?": PRINT A$: INPUT ">";F$: GOTO 145 

27 BS = "TINA>": IF J = 7 THEN PRINT B$;"IS GOLD MINED IN CANADA?": PRINT 
A$: INPUT ">";F$: GOTO 147 

28 BS = "TINA>": IF J = 8 THEN PRINT B$;"DO THEY SMOKE?": PRINT A$: INPUT 
">""F$: GOTO 149 

29 BS = "TINA>": IF J = 9 THEN PRINT B$;"COULD THIS BE TRUE?": PRINT A$: 
INPUT ">";F$: GOTO 151 

30 BS = "TINA>": IF J = 10 THEN PRINT B$;"DO YOU LIVE IN THE WORLD?": PRINT 
A$: INPUT ">";F$: GOTO 153 

31 BS = "TINA>": IF J = 11 THEN PRINT B$;"DOES HE WANTS TO STAY?": PRINT 
A$: INPUT ">";F$: GOTO 155 

32 BS = "TINA>": IF J = 12 THEN PRINT B$;"DO YOU KNOW HOW TO PROGRAM 
COMPUTERS?": PRINT A$: INPUT ">";F%$: GOTO 157 

33 BS = "TINA>": IF J = 13 THEN PRINT B$;"WAS THIS IDEA INTERESTING?": 
PRINT A$: INPUT ">";F$: GOTO 159 

34 BS = "TINA>": IF J = 14 THEN PRINT B$;"DO YOU HAVE AN HOBBY?": PRINT A$: 
INPUT ">";F$: GOTO 161 

35 BS = "TINA>": IF J = 15 THEN PRINT B$;"AM I GOING WITH YOU AND TOM?": 
PRINT A$: INPUT ">";F$: GOTO 163 

36 BS = "TINA>": IF J = 16 THEN PRINT B$;"ARE FLOWERS GROWN HERE?": PRINT 
A$: INPUT ">";F$: GOTO 165 

37 BS = "TINA>": IF J = 17 THEN’ PRINT B$;"DOES IT RAIN HERE?": PRINT A$: 


INPUT ">";F$: GOTO 167 

38 BS = "TINA>": IF J = 18 THEN PRINT B$;"SHOULD THEY STOP?": PRINT A$: 
INPUT ">";F$: GOTO 169 

39 BS = "TINA>": IF J = 19 THEN PRINT B$;"DO YOU LIKE FOOTBALL?": PRINT A$: 
INPUT ">";F$: GOTO 171 

40 B$ = "TINA>": IF J = 20 THEN PRINT B$;"HAVE THE BOYS EATEN?": PRINT A$: 
INPUT ">";F$: GOTO 173 

41 B$ = "TINA>": IF J = 21 THEN PRINT B$;"DO YOU PLAY SPORT?": PRINT A$: 
INPUT ">";F$: GOTO 175 

42 B$ = "TINA>": IF J = 22 THEN PRINT B$;"WERE THEY HAPPY?": PRINT A$: 


INPUT ">";F$: GOTO 177 


43 BS = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
44 BS = "TINA>": IF J 


INPUT ">";F$: GOTO 181 


45 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 183 
46 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 185 
47 B$ = "TINA>": IF J 
">":F$: GOTO 187 

48 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 189 
49 BS = "TINA>": IF J 


INPUT ">";F$: GOTO 191 
50 BS = "TINA>": IF J 


A$: INPUT ">";F$: GOTO 
51 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
52 BS = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
53 BS = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
54 B$ = "TINA>": IF J 


A$: INPUT ">";F$: GOTO 
55 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 203 


56 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 205 
57 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 207 
58 B$ = "TINA>": IF J 


A$: INPUT ">";F$: GOTO 
59 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
60 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 213 
61 B$ = "TINA>": IF J 

">">F$: GOTO 215 

62 BS = "TINA>": IF J 
A$: INPUT ">";F$: GOTO 
63 B$ = "TINA>": IF J 
">":F$: GOTO 219 

64 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 221 
65 B$ = "TINA>": IF J 
">" 2F$: GOTO 223 

66 BS = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
67 B$ = "TINA>": IF J 
">"*F$: GOTO 227 

68 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
69 B$ = "TINA>": IF J 


BOYFRIEND/GIRLFRIEND?": 


= 23 THEN 
GOTO 179 
= 24 THEN 


= 25 THEN 


= 26 THEN 
= 27 THEN 
= 28 THEN 
= 29 THEN 
THEN 


THEN 


= 33 THEN 
GOTO 199 
= 34 THEN 
201 
= 35 THEN 


= 36 THEN 
= 37 THEN 
THEN 


THEN 


= 44 


= 45 


= 46 THEN 
GOTO 225 
= 47 THEN 


= 48 THEN 
GOTO 229 
= 49 THEN 


PRINT A$: 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 
INPUT 


B$;"DO YOU LIKE APPLE COMPUTERS?": 
B$;"IS SHE WORKING TODAY?": PRINT A$: 
B$;"WAS THE BOOK READ?": PRINT A$: 
B$;"DID THE KEY WORK?": PRINT A$: 


B$; "MAY I HELP YOU?": PRINT A$: INPUT 


B$;"DO YOU WANT A DRINK?": PRINT A$: 
B$;"CAN THE DOG SWIM?": PRINT A$: 
B$;"DO YOU HAVE A NICKNAME?": PRINT 
B$;"AM I AT THE CORRECT LOCATION?": 
B$;"DO YOU WANT TO LISTEN MUSIC?": 

B$;"ARE WE SEEING A PLAY TOMORROW?": 
B$;"HAS YOUR BROTHER LEFT?": PRINT 
B$;"DO YOU DRINK COFFEE?": PRINT A$: 
B$;"DO YOU WANT A SNAK?": PRINT A$: 
B$;"AM I YOUR FRIEND?": PRINT A$: 
B$; "ARE YOU YOUNGER THAN ME?": PRINT 
B$;"ARE THE KEYS UNDER THE BOOK?": 

B$;"DO YOU SPEAK ENGLISH?": PRINT A$: 


B$; "WAS IT RAINING?": PRINT A$: INPUT 


B$; "HAVE YOU DRIVEN BEFORE?": PRINT 


B$;"CAN WE STAY?": PRINT A$: INPUT 


B$;"DOES SHE WORK HERE?": PRINT A$: 


B$;"ARE YOU TIRED?": PRINT A$: INPUT 


B$;"IS THIS A GOOD RESTAURANT?": 
B$;"ARE YOU SLEEPY?": PRINT A$: INPUT 
B$;"WAS HIS HOUSE ON AN ISLAND?": 


B$;"DO YOU HAVE A 
"S".F$: GOTO 231 


70 BS = "TINA>": IF J = 50 THEN PRINT B$;"WHERE THEY PLAYING?": PRINT A$: 
INPUT ">";F$: GOTO 233 

71 BS = "TINA>": IF J = 51 THEN PRINT B$;"HAS THE PARTY STARTED?": PRINT 
A$: INPUT ">";F$: GOTO 235 

72 BS = "TINA>": IF J = 52 THEN PRINT B$;"COULD THIS BE TRUE?": PRINT A$: 
INPUT ">";F$: GOTO 237 

73 BS = "TINA>": IF J = 53 THEN PRINT B$;"CAN I GO WITH YOU?": PRINT A$: 
INPUT ">";F$: GOTO 239 

74 BS = "TINA>": IF J = 54 THEN PRINT B$;"DO YOU LIKE VANILLA ICE CREAM?": 
PRINT A$: INPUT ">";F$: GOTO 241 

75 BS = "TINA>": IF J = 55 THEN PRINT B$;"HAVE YOU EVER SEEN A GHOST?": 
PRINT A$: INPUT ">";F$: GOTO 243 

76 BS = "TINA>": IF J = 56 THEN PRINT B$;"IS SHE WORKING VERY HARD?": PRINT 
A$: INPUT ">";F$: GOTO 245 

77 BS = "TINA>": IF J = 57 THEN’ PRINT B$;"DOES THAT TASTE OKAY?": PRINT A$: 
INPUT ">";F$: GOTO 247 

78 BS = "TINA>": IF J = 58 THEN PRINT B$;"HAVE THEY EATEN YET?": PRINT A$: 
INPUT ">";F$: GOTO 249 

79 BS = "TINA>": IF J = 59 THEN PRINT B$;"COULD YOU HELP ME LIFT THIS?": 
PRINT A$: INPUT ">";F$: GOTO 251 

80 BS = "TINA>": IF J = 60 THEN PRINT B$;"SHOULD I OPEN THE WINDOW?": PRINT 
A$: INPUT ">";F$: GOTO 253 

81 BS = "TINA>": IF J = 61 THEN PRINT B$;"DO YOU USALLY WALK TO WORK?": 
PRINT A$: INPUT ">";F$: GOTO 255 

82 BS = "TINA>": IF J = 62 THEN PRINT B$;"DO YOU LIKE DISCO MUSIC IN THE 
70S?": PRINT A$: INPUT ">";F$: GOTO 257 


83 BS = "TINA>": 


IF J = 64 THEN PRINT B$;"IS SHE YOUR SISTER?": PRINT A$: 


INPUT ">";F$: GOTO 259 


84 BS = "TINA>": 
RECORDED?" : 
85 BS = "TINA>": 


WHILE YOU WERE AWAY?": 


86 BS = "TINA>": 
DOWN?": PRINT A$: 
87 BS = "TINA>": 
A$: INPUT ">";F$: 
88 BS = "TINA>": 


PRINT A$: 


IF J = 65 THEN PRINT B$;"IS THIS PHONE CALL BEING 

INPUT ">";F$: GOTO 261 

IF J = 66 THEN PRINT B$;"HAS THE GARDEN BEEN LOOKED AFTER 
PRINT A$: INPUT ">";F$: GOTO 263 

IF J = 67 THEN PRINT B$;"SHOULD WE HAVE BEEN WRITING THIS 
INPUT ">";F$: GOTO 265 

IF J = 68 THEN PRINT B$;"HAVE YOU FOUND THE KEYS?": 
GOTO 267 

IF J = 69 THEN PRINT B$;"IS THE WEATHER NICE IN IRELAND IN 


PRINT 


WINTER?": PRINT A$: INPUT ">";F$: GOTO 269 

89 BS = "TINA>": IF J = 70 THEN PRINT B$;"WAS SHE ANGRY WHEN YOU TOLD ME 
HER ABOUT THE ACCIDENT?": PRINT A$: INPUT ">";F$: GOTO 271 

90 BS = "TINA>": IF J = 71 THEN PRINT B$;"HAVE YOU AN IDENTITY CARD?": 
PRINT A$: INPUT ">";F$: GOTO 273 

91 BS = "TINA>": IF J = 72 THEN PRINT B$;"DID YOU HAVE THE GLASS WITH YOU 


WHEN YOU LEFT THE CAR?": PRINT A$: INPUT ">";F$: GOTO 275 

92 BS = "TINA>": IF J = 73 THEN PRINT B$;"WOULD YOU LIKE TO PLAY TENNIS 
WITH ME LATER?": PRINT A$: INPUT ">";F$: GOTO 277 

93 BS = "TINA>": IF J = 74 THEN PRINT B$;"HAVE YOU SEEN MATT?": PRINT A$: 
INPUT ">";F$: GOTO 279 

94 BS = "TINA>": IF J = 75 THEN PRINT B$;"CAN I GROW POTATOES IN A POT?": 
PRINT A$: INPUT ">";F$: GOTO 281 

95 BS = "TINA>": IF J = 76 THEN PRINT B$;"WILL YOU BE GOING TO RAYAN'S 
PARTY?": PRINT A$: INPUT ">";F$: GOTO 283 

96 BS = "TINA>": IF J = 77 THEN’ PRINT B$;"DO YOU KNOW TINA?": PRINT A$: 
INPUT ">";F$: GOTO 285 

97 BS = "TINA>": IF J = 78 THEN PRINT B$;"WE'VE KNOWN EACH OTHER FOR YEARS. 


WE WENT TO THE SAME SCHOOL?": PRINT A$: INPUT ">";F$: GOTO 287 

98 BS = "TINA>": IF J = 79 THEN PRINT B$;"DO YOU HAVE THE THRILLS LATEST 
ALBUM?": PRINT A$: INPUT ">";F$: GOTO 289 

99 BS = "TINA>": IF J = 80 THEN PRINT B$;"HEY, DID YOU GO FISHING TODAY?": 
PRINT A$: INPUT ">";F$: GOTO 291 

100 BS = "TINA>": IF J = 81 THEN PRINT B$;"HAVE YOU HAD BREAKFAST?": PRINT 
A$: INPUT ">";F$: GOTO 293 

101 BS = "TINA>": IF J = 82 THEN PRINT B$;"IS HE STILL IN BED?": PRINT A$: 
INPUT ">";F$: GOTO 295 

102 BS = "TINA>": IF J = 83 THEN PRINT B$;"ISN'T THAT PAULINE CAR?": PRINT 
A$: INPUT ">";F$: GOTO 297 

103 BS = "TINA>": IF J = 84 THEN PRINT B$;"SHOULDN'T BE LEAVING?": PRINT 
A$: INPUT ">";F$: GOTO 299 

104 BS = "TINA>": IF J = 85 THEN PRINT B$;"ISN'T THAT THE OLDEST BUILDING 
ON THIS STREET?": PRINT A$: INPUT ">";F$: GOTO 301 

105 BS = "TINA>": IF J = 86 THEN PRINT B$;"WON'T YOU STAY FOR DINNER?": 
PRINT A$: INPUT ">";F$: GOTO 303 

106 BS = "TINA>": IF J = 87 THEN PRINT B$;"WOULDN'T YOU LIKE ANOTHER 
COFFEE?": PRINT A$: INPUT ">";F$: GOTO 305 

107 BS = "TINA>": IF J = 88 THEN PRINT B$;"CAN'T THE MANAGER DO SOMETHING 
ABOUT THE NOISE?": PRINT A$: INPUT ">";F$: GOTO 307 

108 BS = "TINA>": IF J = 89 THEN’ PRINT B$;"ARE YOU WORM ENOUGH?": PRINT A$: 
INPUT ">";F$: GOTO 309 

109 BS = "TINA>": IF J = 90 THEN PRINT B$;"DID YOU ONCE LIVE IN IRELAND?": 
PRINT A$: INPUT ">";F$: GOTO 311 

110 BS = "TINA>": IF J = 91 THEN PRINT B$;"YOU'RE LIVING IN BAYSWATER?": 
PRINT A$: INPUT ">";F$: GOTO 313 

111 BS = "TINA>": IF J = 92 THEN PRINT B$;"ARE YOU RENTING YOUR HOUSE?": 
PRINT A$: INPUT ">";F$: GOTO 315 

112 BS = "TINA>": IF J = 93 THEN’ PRINT B$;"IS IT EXPENSIVE?": PRINT A$: 
INPUT ">";F$: GOTO 317 

113 BS = "TINA>": IF J = 94 THEN PRINT B$;"ARE YOU COMING WITH US?": PRINT 
A$: INPUT ">";F$: GOTO 319 

114 BS = "TINA>": IF J = 95 THEN PRINT B$;"HAS HE RETURNED THE CAR?": PRINT 
A$: INPUT ">";F$: GOTO 321 

115 BS = "TINA>": IF J = 96 THEN PRINT B$;"DO YOU LIVE IN US?": PRINT A$: 
INPUT ">";F$: GOTO 323 

116 BS = "TINA>": IF J = 97 THEN PRINT B$;"DOES SHE SPEAK ENGLISH?": PRINT 
A$: INPUT ">";F$: GOTO 325 

117 BS = "TINA>": IF J = 98 THEN PRINT B$;"DID YOU MEET JOHN YEASTERDAY?": 
PRINT A$: INPUT ">";F$: GOTO 327 

118 BS = "TINA>": IF J = 99 THEN PRINT B$;"DOES MIKE LIVE WITH YOU?": PRINT 
A$: INPUT ">";F$: GOTO 329 

119 BS = "TINA>": IF J = 100 THEN PRINT B$;"WILL YOU HELP ME?": PRINT A$: 
INPUT ">";F$: GOTO 331 


once this is done we will write the answers, in this case YES OR NO 


135 IF F$ = "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 
136 IF F$ < > "YES" THEN PRINT "TINA>THIS IS A PROBLEM KEEP CARE": GOTO 


137. IF F$ = "YES" THEN PRINT "TINA>WE WILL HAVE A GOOD PRESIDENT": GOTO 11 
138 IF F$ < > "YES" THEN PRINT "TINA>OK WE ARE JUST HAPPY": GOTO 11 

139 IF F$ = "YES" THEN PRINT "“TINA>WHAT NICE KIND OF MODELS!": GOTO 11 

140 IF F$ < > "YES" THEN PRINT "TINA>OK YOU WILL LEARN WITH TIME": GOTO 


11 


141 IF F$ = "YES" THEN PRINT "“TINA>OK TAKE A PILL": GOTO 11 

142 IF F$ < > "YES" THEN PRINT "TINA>GREAT STAY FIT!": GOTO 11 

143. IF F$ = "YES" THEN PRINT "“TINA>I ALSO LIKE IT": GOTO 11 

144 IF F$ < > "YES" THEN PRINT "TINA>YOU HAVE TO LEARN ABOUT IT THEY ARE 
SMART": GOTO 11 

145 IF F$ = "YES" THEN PRINT "“TINA>I WILL COME SEE IT WITH YOU": GOTO 11 

146 IF F$ < > "YES" THEN PRINT "TINA>OK IT IS IN THE BORDERLAND": GOTO 11 

147. IF F$ = "YES" THEN PRINT "TINA>HO KEEP SOME GOLD!": GOTO 11 

148 IF F$ < > "YES" THEN PRINT "TINA>I WILL TRY IN ANOTHER PLACE": GOTO 
11 

149 IF F$ = "YES" THEN PRINT "“TINA>I SEE THEY SMOKE A LOT": GOTO 11 

150 IF F$ < > "YES" THEN PRINT "TINA>OH BETTER FOR THEIR HEALTH": GOTO 11 

151 IF F$ = "YES" THEN PRINT "TINA>I SEE WITH MY EYES": GOTO 11 

152 IF F$ < > "YES" THEN PRINT "TINA>OH AND WHAT IT CAN BE! WE COULD ONLY 
IMAGINE": GOTO 11 

153. IF F$ = "YES" THEN PRINT "TINA>NICE WORLD": GOTO 11 

154 IF F$ < > "YES" THEN PRINT "TINA>YOU ARE FROM MARS": GOTO 11 

155 IF F$ = "YES" THEN PRINT "“TINA>ALSO I WANT TO STAY": GOTO 11 

156 IF F$ < > "YES" THEN PRINT "TINA>OH NO! I WOULD LOVE TO STAY": GOTO 
11 

157. IF F$ = "YES" THEN PRINT "TINA>GREAT I LOVE THEM!": GOTO 11 

158 IF F$ < > "YES" THEN PRINT "TINA>OH! CAN BE I CAN TEACH YOU THE BASE 
OF PROGRAMMING": GOTO 11 

159 IF F$ = "YES" THEN PRINT "TINA>IT'S VERY INTERESTING": GOTO 11 

160 IF F$ < > "YES" THEN PRINT "TINA>IT WAS INTERESTING...": GOTO 11 

161 IF F$ = "YES" THEN PRINT "TINA>IT IS A WAY TO KEEP YOU OCCUPIED": GOTO 
11 

162 IF F$ < > "YES" THEN PRINT "TINA>OK YOU ARE TOO BUSY AT WORK": GOTO 
11 

163 IF F$ = "YES" THEN PRINT "TINA>WE WILL DO A NICE TRIP": GOTO 11 

164 IF F$ < > "YES" THEN PRINT "TINA>BETTER TO STAY AT HOME": GOTO 11 

165 IF F$ = "YES" THEN PRINT "“TINA>NICE FLOWERS": GOTO 11 

166 IF F$ < > "YES" THEN PRINT "TINA>OH NO! I LOVE FLOWERS SO MUCH": GOTO 
11 

167 IF F$ = "YES" THEN PRINT "TINA>I WILL TAKE AN UMBRELLA!": GOTO 11 

168 IF F$ < > "YES" THEN PRINT "TINA>OK I WILL GO TO THE BALCONY TO TAKE 
SUN": GOTO 11 

169 IF F$ = "YES" THEN PRINT "TINA>YES THEY SHOULD!": GOTO 11 

170 IF F$ < > "YES" THEN PRINT "TINA>I ACCEPT YOUR ANSWER": GOTO 11 

171 IF F$ = "YES" THEN PRINT "TINA>I ALSO LOVE FOOTBALL": GOTO 11 

172 IF F$ < > "YES" THEN PRINT "TINA>I UNDERSTAND, BUT I LOVE TO PLAY 
IT": GOTO 11 

173. IF F$ = "YES" THEN PRINT "TINA>GREAT, A GOOD MEAL IS ALWAISE WELL 
ACCEPTED! ": GOTO 11 

174 IF F$ < > "YES" THEN PRINT "TINA>OH NO THEY MUST EAT AS SOON AS 
POSSIBLE": GOTO 11 

175 IF F$ = "YES" THEN PRINT "“TINA>IT IS GOOD TO PLAY SPORT": GOTO 11 

176 IF F$ < > "YES" THEN PRINT "TINA>YOU SHOULD THINK ABOUT PLAYING IT": 
GOTO 11 

177. IF F$ = "YES" THEN PRINT "TINA>THIS IS REALLY GOOD!": GOTO 11 

178 IF F$ < > "YES" THEN PRINT "TINA>THEY HAVE TO GO UP!": GOTO 11 

179 IF F$ = "YES" THEN PRINT "TINA>YES! IT WAS THE FIRST TO MAKE IT 
PERSONAL!": GOTO 11 


180 IF F$ 


< 


> "YES" THEN PRINT "TINA>OH! NO IT HAS A SO SWEET NAME!": 


GOTO 11 


181 IF F$ = "YES" THEN PRINT "“TINA>SHE IS WORKING HARD": GOTO 11 

182 IF F$ < > "YES" THEN PRINT "TINA>SHE MUST WORK!": GOTO 11 

183. IF F$ = "YES" THEN PRINT "TINA>YES IT WAS BEAUTIFUL I THINK!": GOTO 11 

184 IF F$ < > "YES" THEN PRINT "TINA>NOT A GOOD BOOK I THINK!": GOTO 11 

185 IF F$ = "YES" THEN PRINT "“TINA>GREAT, I WILL GO HOME!": GOTO 11 

186 IF F$ < > "YES" THEN PRINT "TINA>OK I WILL BUY ANOTHER ONE!": GOTO 11 

187 IF F$ = "YES" THEN PRINT "“TINA>OK! I WILL DO MY BEST!": GOTO 11 

188 IF F$ < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME!": GOTO 
11 

189 IF F$ = "YES" THEN PRINT "TINA>IT IS VERY GOOD!": GOTO 11 

190 IF F$ > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME!": GOTO 
11 

191 IF F$ = "YES" THEN PRINT "TINA>IT IS A SWIMMER!": GOTO 11 

192 IF F$ < > "YES" THEN PRINT "TINA>OK IT WILL STAY GROUNDED!": GOTO 11 

193 IF F$ = "YES" THEN PRINT "“TINA>NICE NICKNAME!": GOTO 11 

194 IF F$ < > "YES" THEN PRINT "TINA>OH NO! YOU NEED ONE TO SURF THE 
WEB": GOTO 11 

195 IF F$ = "YES" THEN PRINT "“TINA>OK I WILL COME THERE SOON": GOTO 11 

196 IF F$ < > "YES" THEN PRINT "TINA>YOU WILL FIND IT!": GOTO 11 

197. IF F$ = "YES" THEN PRINT "“TINA>THIS IS POP MUSIC": GOTO 11 

198 IF F$ < > "YES" THEN PRINT "TINA>DONT YOU LIKE MUSIC? IT RELAX YOUR 
MIND! ": GOTO 11 

199 IF F$ = "YES" THEN PRINT "“TINA>GREAT I WILL BE THERE!": GOTO 11 

200 IF F$ < > "YES" THEN PRINT "TINA>OH NO! I WOULD LOVE TO SEE ONE": 
GOTO 11 

201 IF F$ = "YES" THEN PRINT "TINA>OH I'M SORRY": GOTO 11 

202 IF F$ < > "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 

203 IF F$ = "YES" THEN PRINT "TINA>ALSO I LOVE IT": GOTO 11 

204 IF F$ < > "YES" THEN PRINT "TINA>YOU WILL DRINK SOMETHING OTHER": 
GOTO 11 

205 IF F$ = "YES" THEN PRINT "TINA>I ALSO WANT ONE": GOTO 11 

206 IF F$ > "YES" THEN PRINT "TINA>OK YOU WILL DRINK SOMETHING": GOTO 
11 

207 IF F$ = "YES" THEN PRINT "TINA>I LIKE THIS!": GOTO 11 

208 IF F$ < > "YES" THEN PRINT "TINA>OK I RESPECT YOUR THINKING": GOTO 11 

209 IF F$ = "YES" THEN PRINT "TINA>ONLY 5 YEARS YOUNGER!": GOTO 11 

210 IF F$ < > "YES" THEN PRINT "TINA>I DOESNT SEE THE DIFFERENCE": GOTO 
11 

211 IF F$ = "YES" THEN PRINT "TINA>OK I WILL TAKE IT!": GOTO 11 

212 IF F$ < > "YES" THEN PRINT "TINA>OH I WILL SEARCH FOR IT AS SOON AS 
POSSIBLE!": GOTO 11 

213 IF F$ = "YES" THEN PRINT "TINA>GREAT I CAN UNDERSTAND YOU!": GOTO 11 

214 IF F$ < > "YES" THEN PRINT "TINA>OH WE CAN TRY TO TRANSLATE 
SOMETHING! ": GOTO 11 

215 IF F$ = "YES" THEN PRINT "TINA>SOMETHIMES IT MUST RAIN!": GOTO 11 

216 IF F$ < > "YES" THEN PRINT "TINA>OH NO! MY POOR FLOWERS NEEDS 
WATER!": GOTO 11 

217 IF F$ = "YES" THEN PRINT "TINA>OK YOU HAVE PRACTICE! ": GOTO 11 

218 IF F$ < > "YES" THEN PRINT "TINA>THERE IS ALWAYSE A FIRST TIME.": 
GOTO 11 

219 IF F$ = "YES" THEN PRINT "TINA>OK THANK YOU!": GOTO 11 

220 IF F$ < > "YES" THEN PRINT "TINA>OH NOOOO!": GOTO 11 

221 IF F$ = "YES" THEN PRINT "TINA>GREAT! I WILL MEET HER!": GOTO 11 

222 IF F$ < > "YES" THEN PRINT "TINA>OK I WILL CHECK! ": GOTO 11 


LATER": 


F$ = "YES" THEN PRINT "TINA>TAKE A NAP!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK, WILL YOU COME TO ME!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>OK I WILL ORDER SOMETHING!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OH NO! I WAS ADVICE BY A FRIEND": 

F$ = "YES" THEN PRINT "TINA>OK BETTER STAY UP!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>TAKE A NAP": GOTO 11 

F$ = "YES" THEN PRINT "TINA>NICE I WILL GO TO VISIT IT!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK I UNDERSTAND": GOTO 11 

F$ = "YES" THEN PRINT "TINA>YOU ARE NOT ALONE!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I'M SURE YOU WILL FIND ONE SOONER OR 
GOTO 11 

F$ = "YES" THEN PRINT "“TINA>I WILL GO SEE THEM!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>THERE WILL BE A NEXT TURN, I HOPE": 

F$ = "YES" THEN PRINT "TINA>Ok I WiLL TAKE PART!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME": GOTO 

F$ = "YES" THEN PRINT "TINA>OK I SEE!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>SOMETHING NOTHING SEEMS TRUE": GOTO 

F$ = "YES" THEN PRINT "TINA>OK COME WITH ME!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I HOPE IT WILL BE FOR ANOTHER TIME": 

F$ = "YES" THEN PRINT "TINA>GREAT I ALSO LIKE IT!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK YOU LIKE LEMON!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>OH IT WAS SCARY I THINK!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>IT IS NEVER LATE TO SEE ONE!": GOTO 

F$ = "YES" THEN PRINT "TINA>GREAT SHE WILL BE WELL PAID!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OH NO! CAN BE SHE IS TIRED": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GOOD! I WANT ONE": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I WILL TAKE ANOTHER ONE": GOTO 11 

F$ = "YES" THEN PRINT "“TINA>THEY ARE FULL!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK THEY WILL EAT VERY SOON!": GOTO 

F$ = "YES" THEN PRINT "TINA>IT IS VERY HEAVY!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I WILL DO ALONE!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>I WILL TAKE SOME FRESH AIR!": GOTO 11 

Fo < > "YES" THEN PRINT "TINA>I KNOW THEY SMOKE ALOT OUTSIDE!": 

F$ = "YES" THEN PRINT "TINA>I WILL COME WITH YOU": GOTO 11 

FS < > "YES" THEN PRINT "TINA>TAKE THE CAR!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>ALSO I LIKE 70'S MUSIC": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I PREFER 90'S DISCO!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>OK I WILL MEET HER": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OH!I SEE": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GREAT I WILL MAKE ATTENTION": GOTO 11 

FS < > "YES" THEN PRINT "TINA>BETTER TO KNOW!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>I WILL UNLOCK IT": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>BETTER WE WILL COME THERE!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>BEST FOR YOU!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK MAKE MORE ATTENTION!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GREAT YOU FOUND IT!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>IT IS NOT SO EASY!": GOTO 11 
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"YES" THEN PRINT "“TINA>GREAT TO KNOW I WILL GO VISIT IT!": 
> "YES" THEN PRINT "TINA>I WILL GO IN A HOTTER PLACE!": GOTO 


"YES" THEN PRINT "TINA>OH I'M SORRY TO HEAR THIS!": GOTO 11 

> "YES" THEN PRINT "TINA>OK THIS IS GOOD!": GOTO 11 

"YES" THEN PRINT "TINA>BETTER YOU HAVE IT!": GOTO 11 

> "YES" THEN PRINT "TINA>YOU MUST DO IT SOON! ": GOTO 11 

"YES" THEN PRINT "TINA>OK NICE TO KNOW! ": GOTO 11 

> "YES" THEN PRINT "TINA>I WILL YOU WILL FIND IT SOON!": GOTO 


"YES" THEN PRINT "“TINA>GREAT I WILL ENJOY THE PLAY!": GOTO 11 
> "YES" THEN PRINT "TINA>IT WILL BE FOR ANOTHER TIME": GOTO 


"YES" THEN PRINT "“TINA>OK SAY HELLO FROM ME": GOTO 11 

> "YES" THEN PRINT "TINA>YOU HAVE TO FIND HIM": GOTO 11 
"YES" THEN PRINT "TINA>I DIDNT KNOW IT WAS POSSIBLE": GOTO 11 
> "YES" THEN PRINT "TINA>YOU WILL TRY AGAIN! ": GOTO 11 

"YES" THEN PRINT "TINA>I'M GOING WITH YOU": GOTO 11 

> "YES" THEN PRINT "TINA>RAYAN WILL BE UNHAPPY!": GOTO 11 
"YES" THEN PRINT "TINA>I WANT TO KNOW HER ALSO": GOTO 11 

> "YES" THEN PRINT "TINA>YOU WILL KNOW HER SOONER OR LATER": 


"YES" THEN PRINT "TINA>WE ARE OLD FRIENDS": GOTO 11 

> "YES" THEN PRINT "TINA>I THOUGHT WE KNOW BOTH": GOTO 11 
"YES" THEN PRINT "TINA>GREAT! I WANT TO LISTEN IT": GOTO 11 
> "YES" THEN PRINT "TINA>OK YOU WILL BUY IT": GOTO 11 

"YES" THEN PRINT "“TINA>GREAT I COME FISHING WITH YOU": GOTO 11 
> "YES" THEN PRINT "TINA>YOU CAN GO TOMORROW!": GOTO 11 
"YES" THEN PRINT "TINA>OK, HAPPY YOU HAD IT!": GOTO 11 

> "YES" THEN PRINT "TINA>YOU WILL HAVE SOON": GOTO 11 

"YES" THEN PRINT "TINA>LET HER SLEEP!!!": GOTO 11 

> "YES" THEN PRINT "TINA>OH SHE WOKE UP SOON": GOTO 11 
"YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

> "YES" THEN PRINT "TINA>IT WAS SIMILAR": GOTO 11 

"YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

> "YES" THEN PRINT "TINA>OK!": GOTO 11 

"YES" THEN PRINT "“TINA>I THINK SO BY THE MAP!": GOTO 11 

> "YES" THEN PRINT "TINA>I WAS WRONG! ": GOTO 11 

"YES" THEN PRINT "“TINA>WE WILL EAT TOGHETER!": GOTO 11 

> "YES" THEN PRINT "TINA>OK! IT WILL BE FOR THE NEXT TIME": 


"YES" THEN PRINT "TINA>I LIKE IT TOO!": GOTO 11 
> "YES" THEN PRINT "TINA>OK BETTER A GOOD GLASS OF WATER": 


"YES" THEN PRINT "TINA>GOOD FOR MY EARS!": GOTO 11 

> "YES" THEN PRINT "TINA>OH NO! I CAN'T SLEEP": GOTO 11 

"YES" THEN PRINT "“TINA>GREAT, I FEEL YOU!": GOTO 11 

> "YES" THEN PRINT "TINA>I'M SORRY!": GOTO 11 

"YES" THEN PRINT "TINA>I CAN REMEMBER!": GOTO 11 

> "YES" THEN PRINT "TINA>OH! I THOUGHT I LIVED HERE": GOTO 11 
"YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

> "YES" THEN PRINT "TINA>YOU LIVE IN PICCADILLY CIRCUS": GOTO 


"YES" THEN PRINT "TINA>SEEMS A NICE PRICE I WILL RENT IT!": 


GOTO 11 


316 IF F$ < > "YES" THEN PRINT "TINA>OK NO PROBLEM! ": GOTO 11 

317 IF F$ = "YES" THEN PRINT "TINA>I WILL BUY A LOT OF IT!": GOTO 11 
318 IF F$ < > "YES" THEN PRINT "TINA>OK I WILL NOT BUY IT": GOTO 11 
319 IF F$ = "YES" THEN PRINT "TINA>WE WILL DO A NICE TRIP!": GOTO 11 
320 IF F$ < > "YES" THEN PRINT "TINA>OK IT WILL BE FOR ANOTHER TIME": 
GOTO 11 

321 IF F$ = "YES" THEN PRINT "TINA>GREAT I WILL TAKE IT!": GOTO 11 
322 IF F$ < > "YES" THEN PRINT "TINA>BETTER HE KEEP IT": GOTO 11 

323 IF F$ = "YES" THEN PRINT "TINA>I ALSO LIVE THERE!": GOTO 11 

324 IF F$ < > "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

325 IF F$ = "YES" THEN PRINT "TINA>GREAT I UNDERSTAND HER LANGUAGE!": GOTO 
11 


326 IF F$ < > "YES" THEN PRINT "TINA>OH NO! I CANT SPEAK WITH HER": GOTO 
327 IF F$ = "YES" THEN PRINT "TINA>IT WAS A NICE MEETING I THINK!": GOTO 


328 IF F$ < > "YES" THEN PRINT "TINA>OH SORRY! I WAS CONFUSED": GOTO 11 
329 IF F$ = "YES" THEN PRINT "TINA>GREAT TO KNOW, I WILL MEET HIM!!": GOTO 


330 IF F$ < > "YES" THEN PRINT "TINA>I THOUGHT SO": GOTO 11 
= "YES" THEN PRINT "TINA>THANK YOU!": GOTO 11 
332 IF F$ < > "YES" THEN PRINT "TINA>OK,I WILL FIND A SOLUTION BY 
MYSELF!": GOTO 11 
This way our chatbot will be able to ask and answer yes or no. 
Then, if we wanted to, we could add a simple drawing in GR graphics in this 
case: 


333 GR 

334 COLOR= 8 

335 HLIN 5,27 AT 8 

336 VLIN 5,27 AT 6 

337  HLIN 5,27 AT 23 

338 VLIN 27,5 AT 26 

339 COLOR= 12 

340 PLOT 7,10 

341 PLOT 16,22 

342 PLOT 25,10: GOTO 11 


If we want to copy and paste the following code from notepad to Applewin 
simply once copied from notepad we press SHIFT Insert on the keyboard after 
resetting Apple ii. We can first modify the sentences "" to our liking. 

To re-write it to disk we should have previously loaded DOS 3.3 and copied 
and pasted from notepad and then written to the INIT prompt (program name). 


Complete Code: 


1 PR# 3: HOME : PRINT 


----": PRINT " TINA" 

2 PRINT " *; 

3 PRINT " RANDOM MULTIPLE ANSWER INTERACTIVE" 
4 PRINT " CHATBOT" 

5 PRINT "" 


6 PRINT " DEVELOPED BY" 


7 PRINT "" 

9 PRINT " MATTEO TREVISAN AKA TOOLKITMAN": PRINT 
----": FOR I = 1 TO 5000: NEXT I: HOME : SPEED= 150 

10 PRINT "": PRINT "TINA READY TO CHAT...": PRINT 


----": PRINT "TYPE YOUR NAME PLEASE": INPUT A$: GOTO 333 

11 J = INT (100 * RND (1)) +13: 

20 BS = "TINA>": IF J = 1 THEN PRINT B$;"ARE YOU OK?": PRINT A$: INPUT 
">":F$: GOTO 135 

21 BS = "TINA>": IF J = 2 THEN’ PRINT B$;"ARE ELECTION NEXT YEAR?": PRINT 
A$: INPUT ">";F$: GOTO 137 

22 BS = "TINA>": IF J = 3 THEN PRINT B$;"DO YOU 3D PRINT?": PRINT A$: INPUT 
">":F$: GOTO 139 

23 BS = "TINA>": IF J = 4 THEN’ PRINT B$;"ARE YOU SEEK?": PRINT A$: INPUT 
">":F$: GOTO 141 

25 BS = "TINA>": IF J = 5 THEN PRINT B$;"DO YOU LIKE COMPUTERS?": PRINT A$: 
INPUT ">";F$: GOTO 143 

26 BS = "TINA>": IF J = 6 THEN PRINT B$;"WERE THE DEMONSTRATION IN THE 
CENTER OF TOWN?": PRINT A$: INPUT ">";F$: GOTO 145 

27 BS = "TINA>": IF J = 7 THEN PRINT B$;"IS GOLD MINED IN CANADA?": PRINT 
A$: INPUT ">";F$: GOTO 147 

28 BS = "TINA>": IF J = 8 THEN’ PRINT B$;"DO THEY SMOKE?": PRINT A$: INPUT 
">":F$: GOTO 149 

29 BS = "TINA>": IF J = 9 THEN PRINT B$;"COULD THIS BE TRUE?": PRINT A$: 
INPUT ">";F$: GOTO 151 

30 BS = "TINA>": IF J = 10 THEN PRINT B$;"DO YOU LIVE IN THE WORLD?": PRINT 
A$: INPUT ">";F$: GOTO 153 

31 BS = "TINA>": IF J = 11 THEN PRINT B$;"DOES HE WANTS TO STAY?": PRINT 
A$: INPUT ">";F$: GOTO 155 

32 BS = "TINA>": IF J = 12 THEN PRINT B$;"DO YOU KNOW HOW TO PROGRAM 
COMPUTERS?": PRINT A$: INPUT ">";F$: GOTO 157 

33 BS = "TINA>": IF J = 13 THEN PRINT B$;"WAS THIS IDEA INTERESTING?": 
PRINT A$: INPUT ">";F$: GOTO 159 

34 BS = "TINA>": IF J = 14 THEN PRINT B$;"DO YOU HAVE AN HOBBY?": PRINT A$: 
INPUT ">";F$: GOTO 161 

35 BS = "TINA>": IF J = 15 THEN PRINT B$;"AM I GOING WITH YOU AND TOM?": 
PRINT A$: INPUT ">";F$: GOTO 163 

36 BS = "TINA>": IF J = 16 THEN PRINT B$;"ARE FLOWERS GROWN HERE?": PRINT 
A$: INPUT ">";F$: GOTO 165 

37 BS = "TINA>": IF J = 17 THEN PRINT B$;"DOES IT RAIN HERE?": PRINT A$: 
INPUT ">";F$: GOTO 167 


38 BS = "TINA>": IF J = 18 THEN PRINT B$;"SHOULD THEY STOP?": PRINT A$: 
INPUT ">";F$: GOTO 169 

39 BS = "TINA>": IF J = 19 THEN PRINT B$;"DO YOU LIKE FOOTBALL?": PRINT A$: 
INPUT ">";F$: GOTO 171 

40 B$ = "TINA>": IF J = 20 THEN PRINT B$;"HAVE THE BOYS EATEN?": PRINT A$: 
INPUT ">";F$: GOTO 173 

41 B$ = "TINA>": IF J = 21 THEN PRINT B$;"DO YOU PLAY SPORT?": PRINT A$: 
INPUT ">";F$: GOTO 175 

42 B$ = "TINA>": IF J = 22 THEN PRINT B$;"WERE THEY HAPPY?": PRINT A$: 
INPUT ">";F$: GOTO 177 


43 B$ = "TINA>": IF J 23 THEN PRINT B$;"DO YOU LIKE APPLE COMPUTERS?": 
PRINT A$: INPUT ">";F$: GOTO 179 


44 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 181 
45 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 183 
46 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 185 
47 B$ = "TINA>": IF J 
">":F$: GOTO 187 

48 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 189 
49 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 191 


50 BS = "TINA>": IF J 


A$: INPUT ">";F$: GOTO 
51 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
52 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
53 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
54 B$ = "TINA>": IF J 


A$: INPUT ">";F$: GOTO 
55 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 203 


56 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 205 
57 B$ = "TINA>": IF J 
INPUT ">";F$: GOTO 207 
58 B$ = "TINA>": IF J 


A$: INPUT ">";F$: GOTO 
59 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
60 BS = "TINA>": IF J 


INPUT ">";F$: GOTO 213 


61 BS = "TINA>": IF J 
">"*F$: GOTO 215 

62 BS = "TINA>": IF J 
A$: INPUT ">";F$: GOTO 
63 BS = "TINA>": IF J 
">":F$: GOTO 219 

64 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 221 
65 BS = "TINA>": IF J 
">""F$: GOTO 223 

66 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
67 B$ = "TINA>": IF J 
">":F$: GOTO 227 

68 B$ = "TINA>": IF J 
PRINT A$: INPUT ">";F$: 
69 BS = "TINA>": IF J 


BOYFRIEND/GIRLFRIEND?": 


70 BS = "TINA>": IF J 
INPUT ">";F$: GOTO 233 
71 BS = "TINA>": IF J 


= 24 THEN 


= 25 THEN 


= 26 THEN 


= 27 THEN 


= 28 THEN 


= 29 THEN 
= 30 
193 
= 31 THEN 
GOTO 195 
= 32 THEN 
GOTO 197 
= 33 THEN 
GOTO 199 
= 34 THEN 
201 
= 35 THEN 


THEN 


36 THEN 


37 THEN 


= 38 THEN 
209 
= 39 THEN 
GOTO 211 
= 40 THEN 
THEN 
THEN 
THEN 
THEN 


45 THEN 


= 46 THEN 
GOTO 225 
= 47 THEN 


= 48 THEN 
GOTO 229 
= 49 THEN 


PRINT A$: 


= 50 THEN 


= 51 THEN 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 


PRINT 


B$;"IS SHE WORKING TODAY?": PRINT A$: 


B$;"WAS THE BOOK READ?": PRINT A$: 


B$;"DID THE KEY WORK?": PRINT A$: 


B$; "MAY I HELP YOU?": PRINT A$: INPUT 


B$;"DO YOU WANT A DRINK?": PRINT A$: 
B$;"CAN THE DOG SWIM?": PRINT A$: 
B$;"DO YOU HAVE A NICKNAME?": PRINT 
B$;"AM I AT THE CORRECT LOCATION?": 
B$;"DO YOU WANT TO LISTEN MUSIC?": 

B$;"ARE WE SEEING A PLAY TOMORROW?": 
B$;"HAS YOUR BROTHER LEFT?": PRINT 
B$;"DO YOU DRINK COFFEE?": PRINT A$: 
B$;"DO YOU WANT A SNAK?": PRINT A$: 
B$;"AM I YOUR FRIEND?": PRINT A$: 
B$;"ARE YOU YOUNGER THAN ME?": PRINT 
B$; "ARE THE KEYS UNDER THE BOOK?": 

B$;"DO YOU SPEAK ENGLISH?": PRINT A$: 


B$; "WAS IT RAINING?": PRINT A$: INPUT 


B$; "HAVE YOU DRIVEN BEFORE?": PRINT 


B$; "CAN WE STAY?": PRINT A$: INPUT 


B$; "DOES SHE WORK HERE?": PRINT A$: 


B$;"ARE YOU TIRED?": PRINT A$: INPUT 


B$;"IS THIS A GOOD RESTAURANT?": 


B$;"ARE YOU SLEEPY?": PRINT A$: INPUT 


B$;"WAS HIS HOUSE ON AN ISLAND?": 


B$;"DO YOU HAVE A 
"S".F$: GOTO 231 
B$;"WHERE THEY PLAYING?": PRINT A$: 


B$;"HAS THE PARTY STARTED?": PRINT 


A$: INPUT ">";F$: GOTO 235 

72 BS = "TINA>": IF J = 52 THEN PRINT B$;"COULD THIS BE TRUE?": PRINT A$: 
INPUT ">";F$: GOTO 237 

73 BS = "TINA>": IF J = 53 THEN PRINT B$;"CAN I GO WITH YOU?": PRINT A$: 
INPUT ">";F$: GOTO 239 

74 BS = "TINA>": IF J 54 THEN PRINT B$;"DO YOU LIKE VANILLA ICE CREAM?": 
PRINT A$: INPUT ">";F$: GOTO 241 

75 BS = "TINA>": IF J = 55 THEN PRINT B$;"HAVE YOU EVER SEEN A GHOST?": 
PRINT A$: INPUT ">";F$: GOTO 243 

76 BS = "TINA>": IF J = 56 THEN PRINT B$;"IS SHE WORKING VERY HARD?": PRINT 
A$: INPUT ">";F$: GOTO 245 

77 BS = "TINA>": IF J = 57 THEN PRINT B$;"DOES THAT TASTE OKAY?": PRINT A$: 
INPUT ">";F$: GOTO 247 

78 BS = "TINA>": IF J = 58 THEN PRINT B$;"HAVE THEY EATEN YET?": PRINT A$: 
INPUT ">";F$: GOTO 249 

79 BS = "TINA>": IF J = 59 THEN PRINT B$;"COULD YOU HELP ME LIFT THIS?": 
PRINT A$: INPUT ">";F$: GOTO 251 

80 BS = "TINA>": IF J = 60 THEN PRINT B$;"SHOULD I OPEN THE WINDOW?": PRINT 
A$: INPUT ">";F$: GOTO 253 

81 BS = "TINA>": IF J = 61 THEN PRINT B$;"DO YOU USALLY WALK TO WORK?": 
PRINT A$: INPUT ">";F$: GOTO 255 

82 BS = "TINA>": IF J = 62 THEN PRINT B$;"DO YOU LIKE DISCO MUSIC IN THE 
70S?": PRINT A$: INPUT ">";F$: GOTO 257 

83 BS = "TINA>": IF J = 64 THEN PRINT B$;"IS SHE YOUR SISTER?": PRINT A$: 
INPUT ">";F$: GOTO 259 

84 BS = "TINA>": IF J = 65 THEN PRINT B$;"IS THIS PHONE CALL BEING 
RECORDED?": PRINT A$: INPUT ">";F$: GOTO 261 

85 BS = "TINA>": IF J = 66 THEN PRINT B$;"HAS THE GARDEN BEEN LOOKED AFTER 
WHILE YOU WERE AWAY?": PRINT A$: INPUT ">";F$: GOTO 263 

86 BS = "TINA>": IF J = 67 THEN PRINT B$;"SHOULD WE HAVE BEEN WRITING THIS 
DOWN?": PRINT A$: INPUT ">";F$: GOTO 265 

87 BS = "TINA>": IF J = 68 THEN PRINT B$;"HAVE YOU FOUND THE KEYS?": PRINT 
A$: INPUT ">";F$: GOTO 267 

88 BS = "TINA>": IF J = 69 THEN PRINT B$;"IS THE WEATHER NICE IN IRELAND IN 
WINTER?": PRINT A$: INPUT ">";F$: GOTO 269 

89 BS = "TINA>": IF J = 70 THEN PRINT B$;"WAS SHE ANGRY WHEN YOU TOLD ME 
HER ABOUT THE ACCIDENT?": PRINT A$: INPUT ">";F$: GOTO 271 

90 BS = "TINA>": IF J = 71 THEN’ PRINT B$;"HAVE YOU AN IDENTITY CARD?": 
PRINT A$: INPUT ">";F$: GOTO 273 

91 BS = "TINA>": IF J = 72 THEN PRINT B$;"DID YOU HAVE THE GLASS WITH YOU 
WHEN YOU LEFT THE CAR?": PRINT A$: INPUT ">";F$: GOTO 275 

92 BS = "TINA>": IF J = 73 THEN PRINT B$;"WOULD YOU LIKE TO PLAY TENNIS 
WITH ME LATER?": PRINT A$: INPUT ">";F$: GOTO 277 

93 BS = "TINA>": IF J = 74 THEN PRINT B$;"HAVE YOU SEEN MATT?": PRINT A$: 
INPUT ">";F$: GOTO 279 

94 BS = "TINA>": IF J = 75 THEN PRINT B$;"CAN I GROW POTATOES IN A POT?": 
PRINT A$: INPUT ">";F$: GOTO 281 

95 BS = "TINA>": IF J = 76 THEN PRINT B$;"WILL YOU BE GOING TO RAYAN'S 
PARTY?": PRINT A$: INPUT ">";F$: GOTO 283 

96 BS = "TINA>": IF J = 77 THEN’ PRINT B$;"DO YOU KNOW TINA?": PRINT A$: 
INPUT ">";F$: GOTO 285 

97 BS = "TINA>": IF J = 78 THEN PRINT B$;"WE'VE KNOWN EACH OTHER FOR YEARS. 
WE WENT TO THE SAME SCHOOL?": PRINT A$: INPUT ">";F$: GOTO 287 

98 BS = "TINA>": IF J = 79 THEN PRINT B$;"DO YOU HAVE THE THRILLS LATEST 
ALBUM?": PRINT A$: INPUT ">";F$: GOTO 289 


99 BS = "TINA>": IF J = 80 THEN PRINT B$;"HEY, DID YOU GO FISHING TODAY?": 
PRINT A$: INPUT ">";F$: GOTO 291 

100 BS = "TINA>": IF J = 81 THEN PRINT B$;"HAVE YOU HAD BREAKFAST?": PRINT 
A$: INPUT ">";F$: GOTO 293 

101 BS = "TINA>": IF J = 82 THEN PRINT B$;"IS HE STILL IN BED?": PRINT A$: 
INPUT ">";F$: GOTO 295 

102 BS = "TINA>": IF J = 83 THEN PRINT B$;"ISN'T THAT PAULINE CAR?": PRINT 
A$: INPUT ">";F$: GOTO 297 

103 BS = "TINA>": IF J = 84 THEN PRINT B$;"SHOULDN'T BE LEAVING?": PRINT 
A$: INPUT ">";F$: GOTO 299 

104 BS = "TINA>": IF J = 85 THEN PRINT B$;"ISN'T THAT THE OLDEST BUILDING 
ON THIS STREET?": PRINT A$: INPUT ">";F$: GOTO 301 

105 BS = "TINA>": IF J = 86 THEN PRINT B$;"WON'T YOU STAY FOR DINNER?": 
PRINT A$: INPUT ">";F$: GOTO 303 

106 BS = "TINA>": IF J = 87 THEN PRINT B$;"WOULDN'T YOU LIKE ANOTHER 
COFFEE?": PRINT A$: INPUT ">";F$: GOTO 305 

107 BS = "TINA>": IF J = 88 THEN PRINT B$;"CAN'T THE MANAGER DO SOMETHING 
ABOUT THE NOISE?": PRINT A$: INPUT ">";F$: GOTO 307 

108 BS = "TINA>": IF J = 89 THEN PRINT B$;"ARE YOU WORM ENOUGH?": PRINT A$: 
INPUT ">";F$: GOTO 309 

109 BS = "TINA>": IF J = 90 THEN PRINT B$;"DID YOU ONCE LIVE IN IRELAND?": 
PRINT A$: INPUT ">";F$: GOTO 311 

110 BS = "TINA>": IF J = 91 THEN PRINT B$;"YOU'RE LIVING IN BAYSWATER?": 
PRINT A$: INPUT ">";F$: GOTO 313 

111 BS = "TINA>": IF J = 92 THEN PRINT B$;"ARE YOU RENTING YOUR HOUSE?": 
PRINT A$: INPUT ">";F$: GOTO 315 

112 BS = "TINA>": IF J = 93 THEN PRINT B$;"IS IT EXPENSIVE?": PRINT A$: 
INPUT ">";F$: GOTO 317 

113 BS = "TINA>": IF J = 94 THEN PRINT B$;"ARE YOU COMING WITH US?": PRINT 
A$: INPUT ">";F$: GOTO 319 

114 BS = "TINA>": IF J = 95 THEN PRINT B$;"HAS HE RETURNED THE CAR?": PRINT 
A$: INPUT ">";F$: GOTO 321 

115 BS = "TINA>": IF J = 96 THEN PRINT B$;"DO YOU LIVE IN US?": PRINT A$: 
INPUT ">";F$: GOTO 323 

116 BS = "TINA>": IF J = 97 THEN PRINT B$;"DOES SHE SPEAK ENGLISH?": PRINT 
A$: INPUT ">";F$: GOTO 325 

117 BS = "TINA>": IF J = 98 THEN PRINT B$;"DID YOU MEET JOHN YEASTERDAY?": 
PRINT A$: INPUT ">";F$: GOTO 327 

118 BS = "TINA>": IF J = 99 THEN PRINT B$;"DOES MIKE LIVE WITH YOU?": PRINT 
A$: INPUT ">";F$: GOTO 329 

119 BS = "TINA>": IF J = 100 THEN PRINT B$;"WILL YOU HELP ME?": PRINT A$: 
INPUT ">";F$: GOTO 331 


135 IF F$ = "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 

136 IF F$ < > "YES" THEN PRINT "TINA>THIS IS A PROBLEM KEEP CARE": GOTO 
11 

137. IF F$ = "YES" THEN PRINT "TINA>WE WILL HAVE A GOOD PRESIDENT": GOTO 11 
138 IF F$ < > "YES" THEN PRINT "TINA>OK WE ARE JUST HAPPY": GOTO 11 

139 IF F$ = "YES" THEN PRINT "“TINA>WHAT NICE KIND OF MODELS!": GOTO 11 
140 IF F$ < > "YES" THEN PRINT "TINA>OK YOU WILL LEARN WITH TIME": GOTO 
11 

141 IF F$ = "YES" THEN PRINT "“TINA>OK TAKE A PILL": GOTO 11 

142 IF F$ < > "YES" THEN PRINT "TINA>GREAT STAY FIT!": GOTO 11 

143. IF F$ = "YES" THEN PRINT "TINA>I ALSO LIKE IT": GOTO 11 

144 IF F$ < > "YES" THEN PRINT "TINA>YOU HAVE TO LEARN ABOUT IT THEY ARE 


SMART": GOTO 11 


152 


158 


"YES" THEN PRINT "TINA>I WILL COME SEE IT WITH YOU": GOTO 11 


IF F$ < > "YES" THEN PRINT "TINA>OK IT IS IN THE BORDERLAND": GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>HO KEEP SOME GOLD!": GOTO 11 

IF F$ < > "YES" THEN PRINT "TINA>I WILL TRY IN ANOTHER PLACE": GOTO 
IF F$ = "YES" THEN PRINT "TINA>I SEE THEY SMOKE A LOT": GOTO 11 

IF F$ < > "YES" THEN PRINT "TINA>OH BETTER FOR THEIR HEALTH": GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>I SEE WITH MY EYES": GOTO 11 


IF F$ < > "YES" THEN PRINT "TINA>OH AND WHAT IT CAN BE! WE COULD ONLY 


IF F$ = "YES" THEN PRINT "TINA>NICE WORLD": GOTO 11 
< > "YES" THEN PRINT "TINA>YOU ARE FROM MARS": GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>ALSO I WANT TO STAY": GOTO 11 
< > "YES" THEN PRINT "TINA>OH NO! I WOULD LOVE TO STAY": GOTO 


IF F$ = "YES" THEN PRINT "TINA>GREAT I LOVE THEM!": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>OH! CAN BE I CAN TEACH YOU THE BASE 


OF PROGRAMMING": GOTO 11 
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IF F$ = "YES" THEN PRINT "TINA>IT'S VERY INTERESTING": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>IT WAS INTERESTING...": GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>IT IS A WAY TO KEEP YOU OCCUPIED": GOTO 
IF F$ < > "YES" THEN PRINT "TINA>OK YOU ARE TOO BUSY AT WORK": GOTO 
IF F$ = "YES" THEN PRINT "TINA>WE WILL DO A NICE TRIP": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>BETTER TO STAY AT HOME": GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>NICE FLOWERS": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>OH NO! I LOVE FLOWERS SO MUCH": GOTO 
IF F$ = "YES" THEN PRINT "TINA>I WILL TAKE AN UMBRELLA! ": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>OK I WILL GO TO THE BALCONY TO TAKE 
GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>YES THEY SHOULD!": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>I ACCEPT YOUR ANSWER": GOTO 11 
IF F$ = "YES" THEN PRINT "TINA>I ALSO LOVE FOOTBALL": GOTO 11 
< 


> "YES" THEN PRINT "TINA>I UNDERSTAND, BUT I LOVE TO PLAY 


IF F$ = "YES" THEN PRINT "TINA>GREAT, A GOOD MEAL IS ALWAISE WELL 


ACCEPTED! ": GOTO 11 
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IF F$ < > "YES" THEN PRINT "TINA>OH NO THEY MUST EAT AS SOON AS 


POSSIBLE": GOTO 11 
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176 
GOTO 
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179 


IF F$ = "YES" THEN PRINT "TINA>IT IS GOOD TO PLAY SPORT": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>YOU SHOULD THINK ABOUT PLAYING IT": 


= "YES" THEN PRINT "TINA>THIS IS REALLY GOOD! ": GOTO 11 
IF F$ < > "YES" THEN PRINT "TINA>THEY HAVE TO GO UP!": GOTO 11 
= "YES" THEN PRINT "TINA>YES! IT WAS THE FIRST TO MAKE IT 


PERSONAL!": GOTO 11 


180 


IF F$ > "YES" THEN PRINT "TINA>OH! NO IT HAS A SO SWEET NAME!": 


A 


"YES" THEN PRINT "TINA>SHE IS WORKING HARD": GOTO 11 
> "YES" THEN PRINT "TINA>SHE MUST WORK!": GOTO 11 


> "YES" THEN PRINT "TINA>NOT A GOOD BOOK I THINK! ": GOTO 11 
"YES" THEN PRINT "TINA>GREAT, I WILL GO HOME!": GOTO 11 
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"YES" THEN PRINT "TINA>YES IT WAS BEAUTIFUL I THINK!": GOTO 11 


POSSIBLE!": 
213 IF F$ 
214 IF F$ 


SOMETHING!": 


215 IF F$ 
216 IF F$ 
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> "YES" THEN PRINT "TINA>OK I WILL BUY ANOTHER ONE!": GOTO 11 
"YES" THEN PRINT "TINA>OK! I WILL DO MY BEST!": GOTO 11 
> "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME!": GOTO 


"YES" THEN PRINT "TINA>IT IS VERY GOOD!": GOTO 11 
> "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME!": GOTO 


"YES" THEN PRINT "TINA>IT IS A SWIMMER!": GOTO 11 

> "YES" THEN PRINT "TINA>OK IT WILL STAY GROUNDED! ": GOTO 11 
"YES" THEN PRINT "TINA>NICE NICKNAME!": GOTO 11 

> "YES" THEN PRINT "TINA>OH NO! YOU NEED ONE TO SURF THE 


"YES" THEN PRINT "“TINA>OK I WILL COME THERE SOON": GOTO 11 

> "YES" THEN PRINT "TINA>YOU WILL FIND IT!": GOTO 11 

"YES" THEN PRINT "TINA>THIS IS POP MUSIC": GOTO 11 

> "YES" THEN PRINT "TINA>DONT YOU LIKE MUSIC? IT RELAX YOUR 


"YES" THEN PRINT "TINA>GREAT I WILL BE THERE!": GOTO 11 
> "YES" THEN PRINT "TINA>OH NO! I WOULD LOVE TO SEE ONE": 


"YES" THEN PRINT "TINA>OH I'M SORRY": GOTO 11 

> "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 

"YES" THEN PRINT "TINA>ALSO I LOVE IT": GOTO 11 

> "YES" THEN PRINT "TINA>YOU WILL DRINK SOMETHING OTHER": 


"YES" THEN PRINT "TINA>I ALSO WANT ONE": GOTO 11 
> "YES" THEN PRINT "TINA>OK YOU WILL DRINK SOMETHING": GOTO 


"YES" THEN PRINT "TINA>I LIKE THIS!": GOTO 11 

> "YES" THEN PRINT "TINA>OK I RESPECT YOUR THINKING": GOTO 11 
"YES" THEN PRINT "“TINA>ONLY 5 YEARS YOUNGER!": GOTO 11 

> "YES" THEN PRINT "TINA>I DOESNT SEE THE DIFFERENCE": GOTO 


"YES" THEN PRINT "TINA>OK I WILL TAKE IT!": GOTO 11 

> "YES" THEN PRINT "TINA>OH I WILL SEARCH FOR IT AS SOON AS 
oTO 11 

"YES" THEN PRINT "“TINA>GREAT I CAN UNDERSTAND YOU!": GOTO 11 

> "YES" THEN PRINT "TINA>OH WE CAN TRY TO TRANSLATE 
GOTO 11 

"YES" THEN PRINT "“TINA>SOMETHIMES IT MUST RAIN!": GOTO 11 

> "YES" THEN PRINT "TINA>OH NO! MY POOR FLOWERS NEEDS 

11 

"YES" THEN PRINT "“TINA>OK YOU HAVE PRACTICE!": GOTO 11 

> "YES" THEN PRINT "TINA>THERE IS ALWAYSE A FIRST TIME.": 


"YES" THEN PRINT "TINA>OK THANK YOU!": GOTO 11 

> "YES" THEN PRINT "TINA>OH NOOOO!": GOTO 11 

"YES" THEN PRINT "TINA>GREAT! I WILL MEET HER!": GOTO 11 

> "YES" THEN PRINT "TINA>OK I WILL CHECK! ": GOTO 11 

"YES" THEN PRINT "TINA>TAKE A NAP!": GOTO 11 

> "YES" THEN PRINT "TINA>OK, WILL YOU COME TO ME!": GOTO 11 
"YES" THEN PRINT "TINA>OK I WILL ORDER SOMETHING!": GOTO 11 

> "YES" THEN PRINT "TINA>OH NO! I WAS ADVICE BY A FRIEND": 


"YES" THEN PRINT "TINA>OK BETTER STAY UP!": GOTO 11 


228 
229 
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LATER": 
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F$ < > "YES" THEN PRINT "TINA>TAKE A NAP": GOTO 11 

F$ = "YES" THEN PRINT "TINA>NICE I WILL GO TO VISIT IT!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK I UNDERSTAND": GOTO 11 

F$ = "YES" THEN PRINT "TINA>YOU ARE NOT ALONE!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I'M SURE YOU WILL FIND ONE SOONER OR 
GOTO 11 

F$ = "YES" THEN PRINT "TINA>I WILL GO SEE THEM!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>THERE WILL BE A NEXT TURN, I HOPE": 

F$ = "YES" THEN PRINT "TINA>Ok I WiLL TAKE PART!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME": GOTO 

F$ = "YES" THEN PRINT "TINA>OK I SEE!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>SOMETHING NOTHING SEEMS TRUE": GOTO 

F$ = "YES" THEN PRINT "TINA>OK COME WITH ME!": GOTO 11 

F$ > "YES" THEN PRINT "TINA>I HOPE IT WILL BE FOR ANOTHER TIME": 

F$ = "YES" THEN PRINT "TINA>GREAT I ALSO LIKE IT!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK YOU LIKE LEMON! ": GOTO 11 

F$ = "YES" THEN PRINT "TINA>OH IT WAS SCARY I THINK! ": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>IT IS NEVER LATE TO SEE ONE!": GOTO 

F$ = "YES" THEN PRINT "TINA>GREAT SHE WILL BE WELL PAID!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OH NO! CAN BE SHE IS TIRED": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GOOD! I WANT ONE": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I WILL TAKE ANOTHER ONE": GOTO 11 

F$ = "YES" THEN PRINT "TINA>THEY ARE FULL!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK THEY WILL EAT VERY SOON!": GOTO 

F$ = "YES" THEN PRINT "TINA>IT IS VERY HEAVY!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I WILL DO ALONE!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>I WILL TAKE SOME FRESH AIR!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I KNOW THEY SMOKE ALOT OUTSIDE!": 

F$ = "YES" THEN PRINT "TINA>I WILL COME WITH YOU": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>TAKE THE CAR!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>ALSO I LIKE 70'S MUSIC": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>I PREFER 90'S DISCO!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>OK I WILL MEET HER": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OH!I SEE": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GREAT I WILL MAKE ATTENTION": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>BETTER TO KNOW!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>I WILL UNLOCK IT": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>BETTER WE WILL COME THERE! ": GOTO 11 

F$ = "YES" THEN PRINT "TINA>BEST FOR YOU!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK MAKE MORE ATTENTION!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GREAT YOU FOUND IT!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>IT IS NOT SO EASY!": GOTO 11 

F$ = "YES" THEN PRINT "TINA>GREAT TO KNOW I WILL GO VISIT IT!": 

F$ < > "YES" THEN PRINT "TINA>I WILL GO IN A HOTTER PLACE!": GOTO 

F$ = "YES" THEN PRINT "TINA>OH I'M SORRY TO HEAR THIS!": GOTO 11 

F$ < > "YES" THEN PRINT "TINA>OK THIS IS GOOD!": GOTO 11 
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"YES" THEN PRINT "TINA>BETTER YOU HAVE IT!": GOTO 11 

> "YES" THEN PRINT "TINA>YOU MUST DO IT SOON! ": GOTO 11 

"YES" THEN PRINT "TINA>OK NICE TO KNOW! ": GOTO 11 

> "YES" THEN PRINT "TINA>I WILL YOU WILL FIND IT SOON!": GOTO 


"YES" THEN PRINT "TINA>GREAT I WILL ENJOY THE PLAY!": GOTO 11 
> "YES" THEN PRINT "TINA>IT WILL BE FOR ANOTHER TIME": GOTO 


"YES" THEN PRINT "“TINA>OK SAY HELLO FROM ME": GOTO 11 

> "YES" THEN PRINT "TINA>YOU HAVE TO FIND HIM": GOTO 11 
"YES" THEN PRINT "TINA>I DIDNT KNOW IT WAS POSSIBLE": GOTO 11 
> "YES" THEN PRINT "TINA>YOU WILL TRY AGAIN!": GOTO 11 

"YES" THEN PRINT "“TINA>I'M GOING WITH YOU": GOTO 11 

> "YES" THEN PRINT "TINA>RAYAN WILL BE UNHAPPY!": GOTO 11 
"YES" THEN PRINT "TINA>I WANT TO KNOW HER ALSO": GOTO 11 

> "YES" THEN PRINT "TINA>YOU WILL KNOW HER SOONER OR LATER": 


"YES" THEN PRINT "TINA>WE ARE OLD FRIENDS": GOTO 11 

> "YES" THEN PRINT "TINA>I THOUGHT WE KNOW BOTH": GOTO 11 
"YES" THEN PRINT "TINA>GREAT! I WANT TO LISTEN IT": GOTO 11 
> "YES" THEN PRINT "TINA>OK YOU WILL BUY IT": GOTO 11 

"YES" THEN PRINT "“TINA>GREAT I COME FISHING WITH YOU": GOTO 11 
> "YES" THEN PRINT "TINA>YOU CAN GO TOMORROW!": GOTO 11 
"YES" THEN PRINT "“TINA>OK, HAPPY YOU HAD IT!": GOTO 11 

> "YES" THEN PRINT "TINA>YOU WILL HAVE SOON": GOTO 11 

"YES" THEN PRINT "TINA>LET HER SLEEP!!!": GOTO 11 

> "YES" THEN PRINT "TINA>OH SHE WOKE UP SOON": GOTO 11 
"YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

> "YES" THEN PRINT "TINA>IT WAS SIMILAR": GOTO 11 

"YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

> "YES" THEN PRINT "TINA>OK!": GOTO 11 

"YES" THEN PRINT "“TINA>I THINK SO BY THE MAP!": GOTO 11 

> "YES" THEN PRINT "TINA>I WAS WRONG!": GOTO 11 

"YES" THEN PRINT "“TINA>WE WILL EAT TOGHETER!": GOTO 11 

> "YES" THEN PRINT "TINA>OK! IT WILL BE FOR THE NEXT TIME": 


"YES" THEN PRINT "TINA>I LIKE IT TOO!": GOTO 11 
> "YES" THEN PRINT "TINA>OK BETTER A GOOD GLASS OF WATER": 


"YES" THEN PRINT "“TINA>GOOD FOR MY EARS!": GOTO 11 

> "YES" THEN PRINT "TINA>OH NO! I CAN'T SLEEP": GOTO 11 

"YES" THEN PRINT "TINA>GREAT, I FEEL YOU!": GOTO 11 

> "YES" THEN PRINT "TINA>I'M SORRY!": GOTO 11 

"YES" THEN PRINT "TINA>I CAN REMEMBER! ": GOTO 11 

> "YES" THEN PRINT "TINA>OH! I THOUGHT I LIVED HERE": GOTO 11 
"YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

> "YES" THEN PRINT "TINA>YOU LIVE IN PICCADILLY CIRCUS": GOTO 


"YES" THEN PRINT "“TINA>SEEMS A NICE PRICE I WILL RENT IT!": 


> "YES" THEN PRINT "TINA>OK NO PROBLEM!": GOTO 11 

"YES" THEN PRINT "TINA>I WILL BUY A LOT OF IT!": GOTO 11 
> "YES" THEN PRINT "TINA>OK I WILL NOT BUY IT": GOTO 11 
"YES" THEN PRINT "“TINA>WE WILL DO A NICE TRIP!": GOTO 11 
> "YES" THEN PRINT "TINA>OK IT WILL BE FOR ANOTHER TIME": 


GOTO 11 


321 IF F$ = "YES" THEN PRINT "TINA>GREAT I WILL TAKE IT!": GOTO 11 

322 IF F$ < > "YES" THEN PRINT "TINA>BETTER HE KEEP IT": GOTO 11 

323 IF F$ = "YES" THEN PRINT "TINA>I ALSO LIVE THERE!": GOTO 11 

324 IF F$ < > "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

325 IF F$ = "YES" THEN PRINT "TINA>GREAT I UNDERSTAND HER LANGUAGE!": GOTO 
11 

326 IF F$ < > "YES" THEN PRINT "TINA>OH NO! I CANT SPEAK WITH HER": GOTO 
11 

327 IF F$ = "YES" THEN PRINT "TINA>IT WAS A NICE MEETING I THINK!": GOTO 
11 

328 IF F$ < > "YES" THEN PRINT "TINA>OH SORRY! I WAS CONFUSED": GOTO 11 
329 IF F$ = "YES" THEN PRINT "TINA>GREAT TO KNOW, I WILL MEET HIM!!": GOTO 
11 

330 IF F$ < > "YES" THEN PRINT "TINA>I THOUGHT SO": GOTO 11 

331 IF F$ = "YES" THEN PRINT "TINA>THANK YOU!": GOTO 11 

332 IF F$ < > "YES" THEN PRINT "TINA>OK,I WILL FIND A SOLUTION BY 
MYSELF!": GOTO 11 

333 GR 

334 COLOR 


335 HLIN 5,27 AT 8 

336 VLIN 5,27 AT 6 

337  HLIN 5,27 AT 23 

338 VLIN 27,5 AT 26 

339 COLOR= 12 

340 PLOT 7,10 

341 PLOT 16,22 

342 PLOT 25,10: GOTO 11 


Have fun with your new chatbot. 


Matteo Trevisan aka Toolkitman. 


The book and Software is relesed under GNU Licence 3.0 


